/* エンコード -> AEDesc
    FURLDescFromCFURL は Core Foundation URL を Apple イベントディスクリプタ
    レコードにエンコードして、ポインタをディスクリプタレコードに返す。
    エラーが発生すると、NULL が返される */

AEDesc * FURLDescFromCFURL(AEDesc *furlDesc, CFURLRef url) {
    CFDataRef theData;
    OSStatus err;
    AEDesc *furlResult;

        /* ローカル変数を既知のステータスにセットアップする */
    furlResult = NULL;

        /* URL を UTF8 データストリングにエンコードする */
    theData = CFURLCreateData(nil, url, kCFStringEncodingUTF8, true);
    if (theData != NULL) {

            /* データをディスクリプタに入力する */
        err = AECreateDesc('furl', CFDataGetBytePtr(theData),
            CFDataGetLength(theData), furlDesc);

            /* 成功の場合は、結果をセットする */
        if (err == noErr) {
            furlResult = furlDesc;
        }
            /* ローカルバッファを解放する */
        CFRelease(theData);
    }
        /* ポインタを furl ディスクリプタに返す */
    return furlResult;
}

/* デコード -> CFURL
    FURLDescToCFURLはfurlディスクリプタを含むApple イベントディスクリプタ
    レコードをデコードし、Core Foundation URLを返す。
    エラーが発生すると、NULLが返される */

CFURLRef FURLDescToCFURL(AEDesc *furlDesc) {
    Ptr dataPtr;
    Size bytecount;
    CFURLRef url;
    OSStatus err;

        /* ローカル変数を既知のステータスにセットアップする */
    url = NULL;

        /* データタイプが正しいかを検証する */
    if (furlDesc->descriptorType == 'furl') {

            /* ディスクリプタ内のバイト数をカウントする */
        bytecount = AEGetDescDataSize(furlDesc);

            /* バイト数に応じてローカルバッファを割り当てる */
        dataPtr = malloc(bytecount);
        if (dataPtr != NULL) {

                /* ディスクリプタからバイト数をコピーする */
            err = AEGetDescData(furlDesc, dataPtr, bytecount);
            if (err == noErr) {

                    /* Core Foundation URL を作成する */
                url = CFURLCreateWithBytes(nil, dataPtr, bytecount,
                    kCFStringEncodingUTF8, nil);

            }
                /* ローカルバッファの割り当てを解放する */
            free(dataPtr);
        }
    }
        /* 新たな URL を返す */
    return url;
}

リスト1　'furl' Apple イベントディスクリプタレコードのエンコード、およびデコードの方法を示すルーチン。このルーチンはデータタイプの機能的な定義を提供する

図1　Apple イベントでファイルへの参照をエンコードするために typeFileURL フォーマットの使用方法を示す。
注意：要素アプリケーションでは、送信側アプリケーションも受信側アプリケーションも同一のものとなります。

/* GetCFURLFromNavReplyはNavCreatePutFileDialog/NavDialogRun
    シーケンスに応じて、未作成ファイルを参照する URL を返す */
CFURLRef GetCFURLFromNavReply(const NavReplyRecord * navReply) {
    OSStatus err;
    FSRef parentFSRef;
    CFURLRef parentURLRef, fullURLRef;
    AEKeyword theAEKeyword;
    DescType typeCode;
    Size actualSize;

        /* ローカル変数が既知のステータスにあることを確認する */
    fullURLRef = NULL;

        /* 親ディレクトリを参照している FSRef を取得する */
    err = AEGetNthPtr(&navReply->selection, 1, typeFSRef,
        &theAEKeyword, &typeCode, &parentFSRef, sizeof(FSRef), &actualSize);
    if (err == noErr) {

            /* FSRef を Core Foundation URL に変換する */
        parentURLRef = CFURLCreateFromFSRef(NULL, &parentFSRef);
        if (parentURLRef != NULL) {

                /* URL の最後にファイル名を加える */
            fullURLRef = CFURLCreateCopyAppendingPathComponent(NULL,
                parentURLRef, navReply->saveFileName, false);

                /* 親 URL へのパスを解放する */
            CFRelease(parentURLRef);
        }
    }
        /* 新たな URL に参照を返す */
    return fullURLRef;
}

リスト2　NavCreatePutFileDialog/NavDialogRun シーケンスによって返された Navigation Service の応答レコードを使った　Core Foundation URL の作成例

/* CreateFileUsingCFURL は、提供されたカタログパラメータを使って、
    CFURL が参照したファイルを作成する */
OSStatus CreateFileUsingCFURL(
            FSRef *newFileReference,
            CFURLRef url,
            FSCatalogInfoBitmap whichInfo,
            const FSCatalogInfo * catalogInfo) {

    CFURLRef parentURL;
    CFStringRef fileNameRef;
    FSRef parentDirectory;
    UniCharPtr nameStringPtr;
    OSStatus err;

        /* ローカル変数を既知のステータスにセットする */
    err = coreFoundationUnknownErr;

        /* 親ディレクトリへの URL を取得する */
    parentURL = CFURLCreateCopyDeletingLastPathComponent(NULL, url);
    if (parentURL != NULL) {

            /* URL を FSRef に変換する */
        if (CFURLGetFSRef(parentURL, &parentDirectory)) {

                /* URL からリーフ名を取得する */
            fileNameRef = CFURLCopyLastPathComponent(url);
            if (fileNameRef != NULL) {

                    /* URL からリーフ名を取得する */
                nameStringPtr = CFStringGetCharactersPtr(fileNameRef);
                if (nameStringPtr != NULL) {

                        /* ファイルを作成する */
                    err = FSCreateFileUnicode(
                        &parentDirectory,
                        CFStringGetLength(fileNameRef),
                        nameStringPtr,
                        whichInfo, catalogInfo,
                        newFileReference, NULL);
                }
                    /* ファイル名を解放する */
                CFRelease(fileNameRef);
            }
        }
            /* 親 URL を解放する */
        CFRelease(parentURL);
    }
        /* ステータス値を返す */
    return err;
}

リスト3　FSCreateFileUnicode ルーチンを使った、CFURL が参照するファイルの作成例